Sub 丮( As Double)

    Dim ġ As Range

    Set ġ = Cells(Rows.Count, "G").End(xlUp).Offset(1)

    With ġ
        .Value = 
        .Offset(, 1).Value = Now
        .Resize(, 2).BorderAround LineStyle:=xlContinuous
    End With

    If ġ.CurrentRegion.Rows.Count > 11 Then

        ġ.End(xlUp).Offset(1).Resize(, 2).Delete Shift:=xlUp

    End If

End Sub